﻿Public Class ClsErrorEventArgs
    'object which is passed to action

#Region "Attributes"
#Region "Private attributes"
    Private MbCancel As Boolean = False 'whether to prevent the user from completing the operation
    Private MeActionResult As GeActionResult 'result of action. Sometimes useful after action
#End Region
#End Region
#Region "Constructors"
    Sub New()
        MbCancel = False
        MeActionResult = GeActionResult.kkOk
    End Sub
#End Region
#Region "Properties"
#Region "Public properties"
    Public Property Cancel() As Boolean
        Get
            Return MbCancel
        End Get
        Set(ByVal IbValue As Boolean)
            MbCancel = IbValue
        End Set
    End Property
    Public Property ActionResult() As GeActionResult
        Get
            Return MeActionResult
        End Get
        Set(ByVal IeValue As GeActionResult)
            MeActionResult = IeValue
        End Set
    End Property
#End Region
#End Region

End Class
